home *** CD-ROM | disk | FTP | other *** search
/ Journey to the Planets (Wayzata) / Journey to the Planets (Wayzata Technology) (1994).iso / pc / pluto / pluto.hc / stack.txt < prev   
Text File  |  1994-12-16  |  5KB  |  239 lines
  1. -- stack: in.hc
  2. -- format: 10 (HyperCard 2)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=192, y1=144, x2=832, y2=624)
  7. -- screen: Rect(x1=0, y1=0, x2=1024, y2=768)
  8. -- card dimensions: w=640 h=480
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 2813
  12. -- card count: 9
  13. -- first card id: 2999
  14. -- list block id: 5743
  15. -- print block id: 4035
  16. -- font table block id: 3392
  17. -- style table block id: 3281
  18. -- free block count: 2
  19. -- free size: 9408 bytes
  20. -- total size: 24576 bytes
  21. -- stack block size: 5632 bytes
  22. -- created by hypercard version: 0x02108000
  23. -- compacted by hypercard version: 0x02108000
  24. -- modified by hypercard version: 0x02108000
  25. -- opened by hypercard version: 0x02108000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x5B27BCE4
  67. ----- HyperTalk script -----
  68.  
  69. ----------------------------------------------------------------------------
  70. ----------------------------Multicom Publishing Inc.┬«-----------------------
  71. ----------------------------------------------------------------------------
  72.  
  73.  
  74.  
  75. -------------------------------System Handlers:-----------------------------
  76.  
  77.  
  78. on openStack
  79.   hide menuBar
  80.   hide titleBar
  81.   set the userlevel to 5
  82.   colorizeHC
  83.   initGlobals
  84.   openPicture
  85.   resetSystemPalette
  86.   loadPalette
  87.   loadTxt
  88.   plutoSnd
  89. end openStack
  90.  
  91.  
  92.  
  93.  
  94. on resetSystemPalette
  95.   set cursor to busy
  96.   picture "SYSTEM_COLORS",resource,rect,false,8
  97.   set the rect of window "SYSTEM_COLORS" to "639,479,640,480"
  98.   show window "SYSTEM_COLORS" -- show is needed to reset palette!
  99.   close window "SYSTEM_COLORS"
  100.   noPaintWhite
  101.  
  102.   if there is a window "black" then close window "black"
  103. end resetSystemPalette
  104.  
  105.  
  106. on closeStack
  107.   spinCursor
  108.   noPaintWhite
  109.   if there is a window "pluMenu" then close window "pluMenu"
  110. end closeStack
  111.  
  112. on openPicture winName -- handle openPicture sent by Picture XCMD
  113.   global gCurrWindow
  114.   if winName <> "SYSTEM_COLORS" then
  115.     put winName into gCurrWindow
  116.   end if
  117. end openPicture
  118.  
  119.  
  120. on colorizeHC
  121.   global gOKToColorize
  122.   if (gOKToColorize is empty) then pass colorizeHC
  123. end colorizeHC
  124.  
  125.  
  126. on initGlobals
  127.  
  128.   global gGlobalsOK
  129.   if gGlobalsOK is true then exit initGlobals
  130.   if LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilites
  131.   put true into gGlobalsOK
  132.  
  133. end initGlobals
  134.  
  135.  
  136.  
  137.  
  138.  
  139. --------------------------Navigational Handlers---------------------------
  140.  
  141.  
  142.  
  143. on loadPalette
  144.   noPaintWhite
  145.   palette "pluMenu", "0,417"  --opens navigational palette
  146.   if there is a window "runMenu" then close window "runMenu"
  147. end loadPalette
  148.  
  149. on prepWin
  150.   picture "black",resource,rect,false,8     --draws a black screen before showing thumbnail
  151.   set rect of window "black" to "0,0,640,480"
  152.   noPaintWhite
  153.   show window "black"
  154. end prepWin
  155.  
  156.  
  157. on quit
  158.   doMenu "Quit HyperCard"
  159. end quit
  160.  
  161.  
  162.  
  163. on goNext
  164.   lock Screen
  165.   go next
  166.   unlock Screen
  167. end goNext
  168.  
  169.  
  170. on goPrev
  171.   lock Screen
  172.   go previous
  173.   unlock Screen
  174. end goPrev
  175.  
  176.  
  177. on goBack
  178.   lock Screen
  179.   go to card "Main Menu"  --takes you to this stack main menu
  180.   unlock Screen
  181. end goBack
  182.  
  183.  
  184. on goEvent
  185.   play "mouseClick"
  186.   lock screen
  187.   go to cd "MAIN MENU"
  188.   unlock screen
  189. end goEvent
  190.  
  191.  
  192. on goSolar
  193.   lock screen
  194.   go stack "HOME"
  195.   unlock screen
  196. end goSolar
  197.  
  198. on loadTxt
  199.   global marker, printField
  200.   put "PLANETS:PLUTO:PLUTO.TXT" into marker
  201.   put "PLUTO" into printField
  202. end loadTxt
  203.  
  204.  
  205.  
  206. ---------------------------Check Environment Handlers----------------------
  207.  
  208. on cHCinstall
  209.   -- Check for correct environment
  210.   set cursor to busy
  211.   --
  212.   if checkEnviron() is not "OK" then
  213.     go Home
  214.     getHomeInfo
  215.     exit to HyperCard
  216.   end if
  217.   set cursor to busy
  218.   --
  219.   repeat until the lockScreen is false
  220.     unlock screen
  221.   end repeat
  222.   --
  223. end cHCinstall
  224.  
  225.  
  226.  
  227. on plutoSnd
  228.   global switch
  229.   if switch > 0  then
  230.     exit plutoSnd
  231.   end if
  232.  
  233.   QTMovie OpenMovie,Plain,"PLANETS:AUDIO:PLUTO211KHz Movie", "1005,1005", nocontroller,dontPaintWhite,closeOnFinish
  234.   set the visible of window "PLUTO211KHz Movie" to false
  235. end plutoSnd
  236.  
  237.  
  238.  
  239.